home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / advcpf.zip / DEMOCLIP.PRG < prev    next >
Text File  |  1993-01-04  |  547b  |  25 lines
  1. *------------------------ Alle Rechte vorbehalten ----------------------------
  2.  
  3. EXTERNAL COORD
  4.  
  5. DECLARE A[3],B[3]
  6.  
  7. CLEAR
  8. A[1]=4.0
  9. A[2]=6.0
  10. A[3]=9.0
  11. B[1]=10.0
  12. B[2]=3.0
  13. B[3]=7.586
  14. C=0.0
  15. D=.f.
  16. N=COORD(A,B,@C,@D)
  17. @ 17,0 SAY "Press any key to continue..."
  18. Y=inkey(0)
  19. @ 17,0 SAY "____________________________________________"
  20. @ 19,0 SAY " Now, your are back to Clipper"
  21. ? " These are the Values CLipper received from FORTRAN:"
  22. ? " Distance A to B :"+STR(C,6,2)
  23. ? " Array check A[] :",D           
  24. ? " IFEHL           :"+STR(N,3)
  25.